home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A).zip / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A).po / KEYPRESS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  608b  |  14 lines
  1. 10  REM  PROGRAM KEYPRESS
  2. 20  REM  READ KEYPRESS ROUTINE
  3. 30  REM  WORKS ON ALL APPLES
  4. 40  HOME : PRINT "PRESS A KEY": PRINT 
  5. 50 K =  PEEK(49152): IF K <128  THEN 50
  6. 60  REM  READ KEYBOARD LOCATION
  7. 70  REM  VALUE WILL BE <128 WHEN NO KEY HAS BEEN PRESSED
  8. 80  REM  KEEP LOOPING
  9. 90  REM  PRESSED KEY VALUE WILL BE ASCII VALUE + 128..HIGH BIT IS SET
  10. 100  POKE 49168,0: REM  CLEAR KEY BOARD STROBE
  11. 110  IF (K -128) <32  THEN 130
  12. 120  PRINT "THE KEY PRESSED WAS "; CHR$(K -128): END : REM  HANDLE NORMAL CHARACTERS
  13. 130  PRINT "THE KEY PRESSED WAS CTRL "; CHR$((K -128) +64): REM  HANDLE CONTROL KEYSTOKES
  14. 140  END